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: REQUIRE FILE: LIBS: COBDEF .REQ Version 1-017 BHI017 12-AUG-81 

i 

i 

PITIIITITIIITITITI ITI TTT ITI TTT T TTT iL ili tii iii iiii ti iiii rit ii iii ii ii i 


‘e@ 
3* St ty A (c) sere 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


'* ALL RIGH z RESERVED. 


® 
® 
® 
* 
® 
& 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
i ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ie TRANSFERRED. * 
' * 
is THE INFORMATION IN THIS SOFTWARE 1S | SUBJECT TO CHANGE WITHOUT : 
® 

wt 

* 

* 

® 

2 


NOTICE 
tt AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
38 CORPORA TION. “ 


:® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i eeeeeeeeererrereererrrerereeeeeeteneeteeeeeeeeeeeneeeeereeererereeeeereeees 


i DIGITAL. 


MODIFICATION HISTORY: 


1-001 - Start of 318 *3*8 —4 æœer·⸗ 
1-002 = Add COBSK_E 
1-003 = Add —J snd y wrt. 8 1** of COBSK syabets. 
me py | nee le 2 pane data structure by making first 
wo 


of e 
Add coesK exe _¢ CLASS 4 el) 
Add COBSK- ACC” SIZE eer fer size in COBSACCEPT) 
Add CoB$_0SE_ExIT (Special signal between handler and 


INVOKE _USE) 
ae ba a <a 
coesA NAAWFILES to module name data structure. 
ace 18-0CT-7 


1-005 - Remove as se EXIT. (It needs to be in COBMSG.MDL 
so that S.MCB khoy about it. so that the .MAR world can 


gst at it.  RKR 2 * 
1 - dd ** _DIS_SIZE. RKR e1-OCT 


-79 
1 = caenge omment on COBSK_ERR BADCL. RKR 7 pe 
1-008 - Changed 3248 «(08st USE py oun tat ate CO COB$B_USE 
and add GUSE_ MS count sit Lobal 
file rat —— added 840 CHK PROC which e 
stone nition of the offset of USE procedure 22 n the 
fa may Note Rate these changes were made b A... 


duri og th the time when there was enty part-t 
RIL support provided. Also added comments to the detinition 
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1-009 - 


1 
1 


1-0 


Wee 


12 = Added 


uꝝ. for COB$I xCerTION LB 04-MAR-81 

Aso, macro definitions for the Data pave USE Beene ies at 
* * 2n532* iterals for data base USE 44 | -MAR-81 

d ref erences or data base USE entri a R-81 

Ch cae macro or COB C to be an offset of 12 4 in "eke e§ Fe 

array to account for the, adait on of * — count ——* whic 

will reside ato user & 8 in the signal a TF acy occurred 

for the corres data base macro (CoB B _pbene frac Ja 16-APR=-81 

@ macro COB PROC to be an offset of 16°in sh es 

array due to the addition of another cent being signalled 

in module COBSIOEXCEPTION. Changed the name of macro COBSA_CHK_PROC 

to COBSA_FIL_PROC 3 18*8 Pati ely reflect the information we” 


* a pitere P entry to pe COBSERROR set of entries 
(COBSK_ERR_DBAR lso ~ Pont a the maximum value for the 
case stmt By one to account for the added entry. LB 1-MAY~81 


— —2* EXc.xEvV. Also incremented the maximum val i 

t by oné to account for the added entry. PDG . 1 
Added COBsk EXC UNLCK as new OPEN error for opt tert record 
locking. Also Tncremented the maximum value for the case 
stmt by one to account for the added ont ee LS a UG-81 
a auee Bt error on OPEN error. “A 

PIO. Previous I0 NOT Amen 4 2* for 

DELETE and sFART statements. Updated 8 EX C BARR to 7. 
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t+ 


: boitt "Tn PSEC 
—* bracketing PSetts EOBSAXAES 


COBSA NAME= 
COBSA_NAM AENTRYSS 0 
COBSL-NAM_LLEN= 12,0, 
COBSA_NAM_LOCAL=16,0, 
COBSA_NAM “FILES=2 0, 


~NAM_NAM 4,0, 


LITERAL 
COBSS_NAM= 24; 


beginning and end of the true 
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i Definitions for the module name data structure. This structure is used by 

i routine COBSF ” NAME, —— is called by ——2 and —- CANCEL. - 3 is 
2 by a contribution from each COBOL 

and C 

ture. 


‘whoa y are used to tind 


Length in ores of name entry 
Pointer to ASCIC module name 

Address of module entry point 

Length of local storage for module 
Address of local storage for module 
Address of counted List of RAB addresses 


Length of block 
#e** Should never be used to 
search this table ter 


1 
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'e 

i Definitions for the first parameter of COSSERAOR *. fous ine called by 

i compiled code to report an error. If the error is C R SORT, ® second 
; parameter is also present, which is the status —— . SORT 


Minimum for CASEing 

GO TO with no pre sig 

Recursive activation ° PERFOR 

Nesting error for PERF 

TIMES vaius overflows —— 

OCCURS DEPENDING value overflows lLongword 
Subscript overflows longword 


Error dur T 
INSPECT VCONVERT ING engths unequal 
CALL failed on routine (!AS 


COBSK-ERR_PERFR 
COBSK =ERR. ins 
CoB RFT 


Maximum for CASEing 


Poceseten value in DB arg List overflows longword 
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T 
a Linage 
compiler 


Se Hts E8438 
21 314— 


COBSV_CTX “opts 
COBSV>CTX_FLK= 
COBSV_CTX_P10= -4,3,1,0 %, 
COBSB_CTX -FLAG2= ER 
COBSL_CTX_T 6, 


COBSL_CTX Wier 0 
COBSL-CTX-COUNT=-24,0 


3 
5 ad 
= 
* 
— — 
P= 
ww" 
2 
—3 
Td dated 


'¢ 


Values of COBSB_CTX_MODE. 


CITERAL 
COBSK_CTX_INPUT=0, 
COBSK_CTX_OUTPU=1, 
COBSK_CTX_1I _O= ¢° 
COBSK_CTX_ERTEN=3, 
COBSK_CTX_MAX=5; 
LITERAL 


COB$S_CTX_NOLIN=4 
COBSS~CTX~LINAG=24; 


tions for the COBOL file contex 
elds COBSA_CTX_LINAG and follow 
ile. This-area is allocated 
for each file immediately ne BS 5. the RAB. 
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area. ti F 
m9 PSE Er stata arney t is 


TRUE only if it is an YOPTIONAL file. 
TRUE only if File closed WITH LOCK. 


TRUE only if previous 10 was successful READ 


More flag bits 

TRUE only if Optional file not found. 
TRUE only if No next valid record. 
OPEN 2 ode 

Version number 


LINAGE=COUNT R itself 


INPUT mode 

OUTPUT mode 

1-0 mode 

EXTEND mode 

Maximum for upper bound check 


Size of CTX area without LINAGE 
Size of CTX area with LINAGE 
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' 

i Definition coBot specific stack Location (reiative to FP, mapped as 
' @ REF BLOC —A his’ locat St be presumed ES ae it end 

: only if SFSA_HANDLER contains COB LER. 

. 

MACRO 


COBSA_SF_USE= -4,0,32,0 %; ! Address of USE List 


— — — — — — — — — — — —— — — — 
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16 

! Definition for the USE description List pointed to by COBSA_SF_USE. This 

3 

ace s in USE. 

' it 1s used by  cOBsioEécEPt16N to search tor an applicable USE procedure 3 
urs. 


COBSA_USE_PNC= 0.9, 2,0 %, 
$24°0,0,6 


USE. Address of PERFORM nest counter 
COBSA_USE _MODE e 


Base of gren mode entries, in order: 
OUTPUT 


XTEND 
(Same order as COBSB_CTX_MODE) 
Count of file entries 
Count of — file entries 
Base of first file entry 


COBSB_USE_COUNT=36,0,8,0 3, 
COBSB~GUSE_COUNT=36,6,6,0%. 
COBSA~USE_FILES=40,6,6,6 2: 


' 
! Definition for one USE Groce tee oee op Ah the structure above. 

: entries begin at offset COBSA_USE_MODES and are two longwords each. 

} File entries begin at offset COBSA_USE_FILES and are three longwords each. 
i 


COBSA_USE_PROC= 0,0,32.0 3. ! Address of procedure 

COBSA_USE_EOPR= 4,0,32,0 i, ! Address of end of PERFORM range block 

COBSA_USE_RAB= 8,0,52,0 2%; ! Address of RAB (only in file entries) 
LITERAL 

COBSS_USE _MODES=8 ! Size of an open mode entry 

COBSS_USE—F ILES=12; i Size of a file entry 


'¢ 
: Definition of offsets of USE procedure addresses in signal arguments. 


MACRO 
COBSA_FIL_PROC = 1 0-35-08. ! Addr of file specific USE procedure 
C PROC = 16,0,32,02; 


2 
6 ! Addr of open mode specific USE procedure 


— — — ——-— — — 
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‘6 

! Definition for the Data Base USE Sener sernen List pointed to by COBSA_DB_USE. 

! This structure is allocated by the compiler in PSECT SPDATA if USE procedures are 
: present in the module, and compiled code places its address in COBSA_DB_USE. 

! It_is used by COBSDBEXCEPTION to search for an applicable USE procedure if 
: a Data Base exception occurs. 


MACRO 


COBSB_USE CODE = 0,0,8,0% ! Identifying code for data base exceptions 
COBSA_DBUSE _PNC = 4,0, 2,08, ! Address of PNC for declaring program 
COBSB-DBUSE-CNT = 8.0.8,0%, i\# of DB USE procedures defin 


; one global procedures defined in both 

'/this program and in containing programs 
COBSB_GDBUSE_CNT= 8,8,8,0%, '\# of global DB USE procedures 

'/defined in the loca Cte 
COBSA_DBUSE_ENT =12,0,32,0%; 'Base address of Ist DB USE procedure 


‘+ 
! Definition for one Data Base Use Coose Sptzen entry within the 

! structure above, Note that COBSA_USE_PROC and COBSA_USE_EOPR 

i are already defined in the USE List for routine COBSIOEXCEPTION. 
: Also. note that COBSL_USELIT occupies the same field reference as 
1 


COBSA_USE_RAB does for routine COBSIOEXCEPTION. 


MACRO 
: COBSA_USE_PROC= 0,0,32.0 3. ! Address of procedure 
: COBSA_USE_EOPR= 4,0, 8 i, ! Address of end of PERFORM range block 
COBSL_USE_LIT = 8,0,32,0 2; '\A data base exception literal or zero 
'/for "ON OTHER’ or no “ON” 


LITERAL 


COBSK_DBUSE_CODE = 1, '\Code indicating generic class 
'/ = Data Base 
COBS$S_DBUSE = 12; ! Size of a DB entry 


te 

! Definition of offset of Data Base USE procoewre address in the 
! signal argument vector. (Used in COBSHANDLER when trying to find an 
: applicable USE procedure. 


MACRO 
COBSA_DBCHK_PROC = 12,0,32,0%; 
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tg 

i Definitions for a firee pec qneter of COBSIOEXCEPTION, which encodes the 
! statement type and the specific error that has been encountered. Note 

' that if the —— —— indicates an RMS error, the RMS stetus is 


H obtained from the R uctures. 
le 
— * COBSW_EXC_STMT 16,0 % ' 1/0 stat t 
Ve ° @ H statement type 
COBSW~EXC— ~ERROR=2. 8 8 ! Error type - 
14 
_Values for COBSW_EXC_STMT. 
CITERAL 
COBSK_EXC_MINS=1, ! Minimum for CASEing 
104 
i Class of open errors, varying in file organization 
and file access. — 


COBSK_EXC_OPESS= 1, 


COBSK_EXC 3 i 
COBSK-EXC"OPERR= 4, 
COBSK-EXC “OPEIS= 5. 
COBSK-EXC"OPEIR= 6, 


' 

: s of close errors, varying in file organization 
; and file access. 

COBSK_EXC_CLOSS= 7, 

COBSK_EXC_CLORS= 9, 

COBSK~EXC =CLORR=10, 


COBSK-EXC-CLOIS=11, 
COBSK~EXC-CLOIR=12, 


or read errors, varying in file organization 


ile access. 


COBSK_EXC_REASS=15, 
COBSK_EXC_REARS=15, 
=RE 1 


COBSK~EXC-REAIR=18, 


'¢ 
' Class of write errors, varying in file organization 


— — — — —— — — — — — ——— — — — — — — — — — — 


COBDEF .REQ;1 
H and file access. 


COBSK_EXC_WRISS=19, 
—8* me UR RSS : 
COBSK _EXC_WRIRR=22, 
ao XC_WRIIS=25, 
XC_WRIIR=24 


C 
CoB tte 


' 
t 
: and file access. 


COBSK_EXC_REWSS=25, 
COBSK _EXC_REWRS=27, 
COBSK-EXC"REWRR= 8. 


COBSK-EXC_REWIS= 
COBSK~EXC-REWIR=30, 


i class 
: and file access. 


COBSK_EXC_DELSS=31, 
COBSK _EXC -DELRS= 3, 


COBSK-EXC-DELIR= 


'¢ 

i Class 

and file access. 
COBSK_EXC_STARS=39, 
COBSK_EXC_STAIS=41, 

'¢ 
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i Class of re-write errors, varying in file organization 


ef delete errors, varying in file organization 


ef start errors, varying in file organization 


i Close re-wind error in sequential organization and 


: ——— ton access. 


COBSK_EXC_CLRSS=43, 
COBSK-EXC"UNLCK=44, 
COBSK-EXC"MAXS=44 ; 


4 


i values for COBSW_EXC_ERROR. 


! Maximum for CASEing 


11 


— —— 


COBDEF .REQ;1 


COBSK_EXC_ORG= 5, 
COBSK_EXC_KEY = 6, 


COBSK_EXC_P10 = 7, 
COBSK—EXC_MAXM= 7; 
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Minimum for CASEing 
rror. 


RM r 

OPEN of a file choseg WITH LOCK. 
s alread 

The length of a variable Leng 


OPEN of a file that 


is less than the minimum $s 
This occurs on READs, WRIT 


Es. 


fy 


open. 
h record 


ed. 
and REWRITEs. 


The organization of the file opened 
does not match what was expected. 

An index key of the file opened does 
not match what was expected 


Previous 10 operation was NOT successful READ 


Maximum for CASEing 


— — — 
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"Definitions * 


nt 
for 


CITERAL 


'¢ 


i Buffer 


LITERAL 


'¢ 


!' Buffer size of tem 
callers strings. 


LITERAL 


r unit encodings designat 
hese statements. 


-PTPUNCH= 
COBSK_UNIT_MAX= 6; 


ing 


te 

i r the first parameter 21 
i run-time nes. These routines are in 
tor. the. aC CEPT and DISPeay stat 
i 


nts, re 
the un 


— — 
BEPOQOOOOoos 


3388888 
2 
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7. the * EPT and COBSDISPLAY 
voked by ¢t 


itt 


tivel 
rom w 


n=line code comp 108 


7; this y nherede is 


input/output is to ———— 


ASEing 


ical name 


R logical n 
ERTAPEREAD R t teat name 
EPRINTER Logical name 
ERTAPEPUNCH log cal name 
ximum for CASEin 


size pi Cecates in COBSACCEPT. Represents largest record that 
i can be Act EPTt 


COBSK_ACC_SIZE = 1024 ; 


COBSK_DIS_SIZE = 132 ; 


buffer in COBSDISPLAY with which it will concatenate 
eyond this size, it resorts to heap storage. 


SE | DIGITAL EQUIPMENT CORPORATION 
VAX/VMS V4.0 CONFID 


I 
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WK) ae eT e 


